100 POKE53281,0:PRINTCHR$(147)
110 V=53248:POKEV+21,PEEK(V+21)OR32:POKEV+23,32
120 POKE2045,197
130 FORS6=12608TO12670:READD6:REM EIN SCHERZ!
140 POKES6,D6:NEXT
150 POKEV+44,5:POKEV+10,240:POKEV+11,130
160 FORA=1TO2
170 FORC=240TO100STEP-.4:POKEV+10,C:NEXT
180 FORC=100TO240STEP.4:POKEV+10,C:NEXT
190 NEXTA
200 DATA0,0,0,0,0,0,0,16,0,0,56,0,0,40,0,0,124,0,0,186,0,0,238,0,1,251,0
210 DATA1,191,0,3,239,128,3,125,128,7,187,192,6,238,192,15,255,224,14,219,96
220 DATA31,255,240,27,238,176,0,56,0,0,56,0,0,56,0
500 V=53248:POKEV+21,PEEK(V+21)OR128:POKEV+29,128
510 POKE2047,199
520 FORS8=12736TO12798:READD8:REM NOCH 'N SCHERZ!
530 POKES8,D8:NEXT:POKEV+46,10
540 POKEV+14,150:POKEV+15,60
600 DATA0,16,0,0,56,0,0,124,0,0,214,0,0,254,0,0,198,0,0,124,0,0,56,0
610 DATA0,254,0,1,239,0,3,255,128,3,109,128,7,126,192,6,238,192
620 DATA13,255,96,13,239,96,1,255,0,1,239,0,0,108,0,0,108,0,0,108,0
800 FORP=1TO1000:NEXTP
810 FORC=60TO160STEP.1:POKEV+15,C:NEXT
820 FORP=1TO400:NEXTP:POKEV+29,0
830 FORP=1TO400:NEXTP:POKEV+29,128
840 V=53248:POKEV+21,PEEK(V+21)OR32:POKEV+23,32
850 POKE2045,197
855 RESTORE
860 FORS6=12608TO12670:READD6
870 POKES6,D6:NEXT:POKEV+44,5
880 POKEV+10,240:POKEV+11,130
890 FORP=1TO700:NEXTP
900 FORC=240TO100STEP-.3:POKEV+10,C:NEXT
910 FORC=100TO170STEP.1:POKEV+10,C:NEXT
920 POKEV+29,0
930 FORP=1TO400:NEXTP:POKEV+29,128
940 FORP=1TO100:NEXTP
950 POKEV+44,5
960 FORP=1TO200:NEXTP
970 FORC=130TO0STEP-.9:POKEV+11,C:NEXT
980 FORP=1TO400:NEXTP:POKEV+29,0
990 FORP=1TO100:NEXTP:POKEV+29,128
1000 FORP=1TO400:NEXTP:POKEV+21,0
1010 END